home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / CLISRV / BOOKSALE / CLIENT / FRMCHART.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-01  |  3.1 KB  |  89 lines
  1. VERSION 5.00
  2. Object = "{02B5E320-7292-11CF-93D5-0020AF99504A}#1.0#0"; "MSChart.OCX"
  3. Begin VB.Form frmChart 
  4.    Caption         =   "Revenue Chart"
  5.    ClientHeight    =   5055
  6.    ClientLeft      =   1665
  7.    ClientTop       =   4425
  8.    ClientWidth     =   8160
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   5055
  12.    ScaleWidth      =   8160
  13.    WhatsThisHelp   =   -1  'True
  14.    Begin VB.Frame Frame1 
  15.       Height          =   4935
  16.       Left            =   120
  17.       TabIndex        =   1
  18.       Top             =   0
  19.       Width           =   6615
  20.       Begin MSChartLib.MSChart grfRevenue 
  21.          Height          =   4575
  22.          Left            =   120
  23.          OleObjectBlob   =   "frmchart.frx":0000
  24.          TabIndex        =   2
  25.          Top             =   240
  26.          Width           =   6375
  27.       End
  28.    End
  29.    Begin VB.CommandButton cmdClose 
  30.       Caption         =   "&Close"
  31.       Default         =   -1  'True
  32.       Height          =   420
  33.       Left            =   6840
  34.       TabIndex        =   0
  35.       Top             =   120
  36.       Width           =   1215
  37.    End
  38. Attribute VB_Name = "frmChart"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. Option Explicit
  44. Private Sub cmdClose_Click()
  45.   Unload Me
  46. End Sub
  47. Private Sub Form_Load()
  48.   SetGraphData
  49. End Sub
  50. Sub SetGraphData()
  51.   Dim strGraphData As String
  52.   Dim vGraphData As Variant
  53.   Dim strSrchString As String * 1
  54.   Dim lStart As Long
  55.   Dim lEnd As Long
  56.   Dim lstrLen As Long
  57.   Dim i As Integer
  58.   Dim j As Integer
  59.   On Error GoTo SetGraphDataError
  60.   Screen.MousePointer = vbHourglass
  61.   ' Request results from business rule.
  62.   goStatusPanel.Text = "Retrieving chart data from Bobsvr..."
  63.   vGraphData = goBookSaleSvrInst.GetRevenue(CInt(Val(frmRevenue.frmSalesModel.Tag)), _
  64.                                                                 CCur(Val(frmRevenue.txtRevParm(0).Tag)), _
  65.                                                                 CCur(frmRevenue.txtRevParm(1).Text), _
  66.                                                                 CInt(frmRevenue.txtRevParm(2).Text), _
  67.                                                                 CLng(frmRevenue.txtRevParm(3).Text), _
  68.                                                                 CBool(frmRevenue.chkDiscount.Value), _
  69.                                                                 frmRevenue.cboBooks.Text)
  70.   grfRevenue.RowCount = Val(frmRevenue.txtRevParm(2).Text)
  71.   grfRevenue.ColumnCount = 2
  72.   grfRevenue.AutoIncrement = True
  73.   goStatusPanel.Text = "Plotting chart data..."
  74.   For j = 0 To UBound(vGraphData, 2)
  75.     For i = 0 To UBound(vGraphData, 1)
  76.       grfRevenue.Row = i + 1
  77.       grfRevenue.RowLabel = CStr(i + 1)
  78.       grfRevenue.Column = j + 1
  79.       grfRevenue.Data = vGraphData(i, j)
  80.     Next i
  81.   Next j
  82.   Screen.MousePointer = vbDefault
  83.   Exit Sub
  84. SetGraphDataError:
  85.   Screen.MousePointer = vbDefault
  86.   MsgBox Error$ & " - " & Str$(Err), vbExclamation, "SetGraphData Error"
  87.   Exit Sub
  88. End Sub
  89.